function[]=c(a,b)
p=0;n=0;
for i=1:length(a)
   for j=1:length(b)
       if(a(i)==b(j))n=n+1;
        if(i==j)p=p+1;end
       end
   end
end disp(['Coinciden ',num2str(n),' posiciones ',num2str(p)]); end
